home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2004 #2 / Amiga Plus CD - 2004 - No. 02.iso / AmigaPlus / Tools / Development / RxMUI / Examples / PopF.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  2004-01-31  |  1.1 KB  |  46 lines
  1. /* PopAsl - multi files request example */
  2.  
  3. app.Title="PopObject"
  4. app.Version="$VER: PopObject 1.1 (2.2.2002)"
  5. app.Copyright="©1999-2002, alfie"
  6. app.Author="alfie"
  7. app.Description="PopObject show"
  8. app.Base="RXMUIEXAMPLE"
  9. app.SubWindow="win"
  10.  win.Title="PopObject"
  11.  win.ID="POPF"
  12.  win.Contents="mgroup"
  13.   mgroup.0="popu"
  14.    popu.class="popasl"
  15.    popu.type="file"
  16.    popu.fontminheight=11
  17.    popu.fontmaxheight=20
  18.    popu.FilterMacro="parse arg a,b,c;return pos('.c',a)=0"
  19.    popu.domultiselect=1
  20.    popu.acceptpattern="#?"
  21.    popu.rejectpattern="#?.o"
  22.     files.AutoExpand=1
  23.    popu.string=string("files")
  24.    popu.dopattern=1
  25.    popu.sleepwindow=1
  26.    popu.initialpattern="#?"
  27.   mgroup.1=text("info")
  28.  
  29. call NewObj("application","app")
  30.  
  31. call notify("win",closerequest,1,app,returnid,quit)
  32. call notify("files","newcontents","everytime",info,set,contents,triggervalue)
  33.  
  34. call set("win","open",1)
  35.  
  36. ctrl_c=2**12
  37. do forever
  38.     call NewHandle("app","h",ctrl_c)
  39.     if and(h.signals,ctrl_c)>0 then exit
  40.     if h.event="QUIT" then exit
  41.     if h.event="PO" then do
  42.         call domethod("list","getentry","active","e")
  43.         call set("s","contents",e)
  44.     end
  45. end
  46.